Magnum One/Magnum One (Mid-American Digital) (Disc Manufacturing).iso/d12/ptv1n4.arc/NEWKEY.PAS

Pascal/Delphi Source File | 1990-09-13 | 346 b | 15 lines

{ IsNewKey: A function for determining whether
  a 101/102-key keyboard is attached to the
  user's system.

  (c) 1990 by George W. Seaton
  All Rights Reserved                           }

FUNCTION IsNewKey : Boolean;
BEGIN
  IF ((Mem[$0040:$0096] AND $10) = $10) THEN
    IsNewKey := TRUE
  ELSE
    IsNewKey := FALSE;
END;